perm filename BGBUM[0,BGB] blob
sn#125824 filedate 1974-10-22 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002
C00003 00003 ----- STADPY
C00007 ENDMK
C⊗;
;----- STADPY
;TRANSLATION STRENGTH.
CALL(AIVECT,[=185],[=480+YDEL])
CALL(FLODPY,TDEL,[4])
LAC 1,FLAGME
PUSH P,[[ASCIZ/ CM/]↔[ASCIZ/ FEET/]↔[ASCIZ/ METERS/]]+1(1)
CALL(DPYSTR)
;ROTATION STRENGTH IN PI FRACTION.
CALL(AIVECT,[=185],[=460+YDEL])
L1: MOVE 1,RDEL↔FDVR 1,[3.14159265]↔PUSH P,1
MOVSI (1.0)↔TDZA 3,3
L1L: FDVRM 2,1
UFA 1,[233000,,]↔FSB 1,2
FMP 2,↔FAD 2,3
CAML 2,[1000.0]↔JRST L1D
MOVE 3,↔MOVE 2↔MOVSI 2,(1.0)
JUMPN 1,L1L
L1D: MOVE 1,↔FIX 1,233000↔CALL(DECDPY)↔CALL(DPYSTR{[[ASCIZ"π/"]]})
FDVR (P)
FADRI (233400)↔HRRZM (P)↔CALL(DECDPY)
COMMENT ⊗
;ROTATION STRENGTH IN PI FRACTION.
CALL(AIVECT,[=185],[=460+YDEL])
L1: LAC RDEL↔LAC 1,[3.15]
CAMLE[6.28]↔GO L2
CAML[2.0]↔GO[FSC 1,1↔PUSH P,1
CALL(DTYO,["2"])↔POP P,1
GO .+1]
FDVR 1,RDEL↔FIX 1,233000↔PUSH P,1
CALL(DPYSTR,{[[ASCIZ"π/"]]})
CALL(DECDPY)⊗
L2:
;RDEL IN DEGREES, MINUTES AND SECONDS.
CALL(AIVECT,[=270],[=460+YDEL])
LAC 1,RDEL↔FMPR 1,[206264.806] ;SECONDS.
FIX 1,233000
AOS 1↔IDIVI 1,=3600↔IDIVI 2,=60
PUSH P,3↔PUSH P,2↔PUSH P,1
CALL(DECDPY)↔CALL(DTYO,[" "])
CALL(DECDPY)↔CALL(DTYO,[" "])
CALL(DECDPY)
;DILATION STRENGTH.
CALL(AIVECT,[=390],[=480+YDEL])
LAC DDEL↔FMP[100.0]↔FADR[0.001]
CALL(FLODPY,0,[2])
CALL(DTYO,["%"])
CALL(DTYO,[" "])
LAC AXECNT↔ADDI 60↔CALL(DTYO,0)
;SHOW SUNSHINE VECTOR.
SKIPE FLAGLS↔GO[
BEGIN
Q←12 ↔ R←13 ↔ S←14
CALL(AIVECT,[0],[0])
LAC 1,UNIVER↔SON Q,1↔ALT Q,Q↔ALT2 Q,Q ;SUN'S FRAME.
CW R,1↔DAD R,R↔ALT2 R,R ;CAMERA'S FRAME.
LAC XWC(Q)↔FMP XWC(Q)↔DAC 1
LAC YWC(Q)↔FMP YWC(Q)↔FAD 1,
LAC ZWC(Q)↔FMP ZWC(Q)↔FAD 1,↔CALL(SQRT,1)
LAC S,[350.0]↔FDVR S,1↔↔HRLZI IX(R)↔AOS↔BLT 9
FMP 7,XWC(Q)↔LAC 7↔FMP 8,YWC(Q)↔FAD 8↔FMP 9,ZWC(Q)↔FAD 9
FMP S↔FDVR [350.0]↔PUSH P,↔PUSH P,[2]
FMP 1,XWC(Q)↔LAC 1↔FMP 2,YWC(Q)↔FAD 2↔FMP 3,ZWC(Q)↔FAD 3↔FMP S↔FIXX↔PUSH P,
FMP 4,XWC(Q)↔LAC 4↔FMP 5,YWC(Q)↔FAD 5↔FMP 6,ZWC(Q)↔FAD 6↔FMP S↔FIXX↔PUSH P,
CALL(AVECT)↔CALL(DPYSTR,[[ASCIZ/SUN /]])↔CALL(FLODPY)↔GO .+1]
BEND